home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / S9301.ZIP;1 / GRIVER.ZIP / CREADBF.PRG next >
Encoding:
Text File  |  1992-12-10  |  568 b   |  24 lines
  1. PROCEDURE CreaDBF
  2. *--
  3. *-- Routine to create any missing dbfs
  4. PRIVATE lnArryCnt, lcDBF
  5.  
  6. SELECT DISTINCT datadict.dbf_name ;
  7.    FROM datadict ;
  8.    INTO ARRAY laDbfList
  9.    
  10. FOR lnArryCnt = 1 TO ALEN(laDbfList)
  11.      lcDBF = laDbfList[lnArryCnt] - '.DBF'
  12.    IF NOT FILE(lcDBF)                          && DBF doesn't exist
  13.         SELECT * ;
  14.              FROM Datadict ;
  15.              WHERE Datadict.dbf_name = laDBFList[lnArryCnt] ;
  16.              INTO ARRAY laFields
  17.         CREATE TABLE laDBFList[lnArryCnt] ;
  18.              FROM ARRAY laFields
  19.         RELEASE laFields
  20.    ENDIF
  21. ENDFOR
  22.  
  23.  
  24.